home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 45 / 045.d81 / harneds art hote (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  124 lines
  1. 1 ifx>.then10
  2. 2 poke53280,.:poke53281,.
  3. 3 print"[147]"
  4. 4 print"    [215]elcome to [200]arned's [193]rt [200]otel..."
  5. 5 :
  6. 8 poke55,120:poke56,55:clr
  7. 10 ifx=0thenx=1:load"unpacker",8,1
  8. 20 ifx=1thenx=2:load"bload.o",8,1
  9. 25 ifx=2thenx=3:load"copymem.o",8,1
  10. 30 :
  11. 40 bl=828:unpack=51456:hgr=51459
  12. 45 cm=14200
  13. 50 :
  14. 55 np=10:dim t$(np),a$(np),r$(np)
  15. 56 forx=1tonp:readt$(x),a$(x),r$(x)
  16. 58 ifa$(x)="*"thena$(x)=a$(x-1)
  17. 59 next
  18. 60 gosub 50060: rem title screen
  19. 70 forx=1tonp:gosub60000
  20. 80 print"[154]"
  21. 82 printspc(19-len(t$(x))/2)""t$(x)"[146]"
  22. 84 print""spc(19-len(a$(x))/2)""a$(x)"[146]"
  23. 90 sysbl,16384,r$(x)
  24. 92 :
  25. 94 ifpeek(198)<>0thengeta$:poke198,0:ifa$="q"ora$="[209]"thengosub10000
  26. 95 ifright$(r$(x),3)="pic"then1000
  27. 96 poke249,224:poke250,204
  28. 98 poke251,0:poke252,64
  29. 99 poke253,0:poke254,0:print"[147]";:sysunpack:syshgr
  30. 100 ag=3.34
  31. 110 fordl=1to1500:ifpeek(198)=0thennextdl:goto120
  32. 112 geta$:ifa$="q"ora$="[209]"thensyshgr:gosub10000:syshgr
  33. 120 syshgr:print"[147]":poke198,0:next x
  34. 130 goto70
  35. 140 :
  36. 1000 ag=3.34:poke249,224:poke250,204
  37. 1010 poke251,.:poke252,64
  38. 1020 poke253,.:poke254,.:print"[147]"
  39. 1030 sys cm,24576-8192,57344,8000
  40. 1040 sys cm,32576-8192,52224,1000
  41. 1050 sys cm,33576-8192,55296,1000
  42. 1055 poke53281,peek(34576-8192)
  43. 1060 sys hgr:goto100
  44. 10000 rem a key was pressed
  45. 10005 poke53281,1:poke53280,5
  46. 10010 print"[147][144]  [193]re you sure you want to quit [[217]/[206]]?"
  47. 10020 poke198,0:wait198,1:getag$
  48. 10030 ifag$="y"orag$="[217]"then30000
  49. 10040 return
  50. 30000 rem quit
  51. 30010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  52. 30020 ifer<>63thenprint"[147]":end
  53. 30030 load"hello connect",8
  54. 50000 rem data <title>,<author>,<real>
  55. 50010 data "[202]unks","[215]alt [200]arned",junks.shp
  56. 50012 data "[211]tream",*,stream.pic
  57. 50014 data "[195]ity",*,city.pic
  58. 50016 data "[199]ulls",*,gulls.shp
  59. 50020 data "[214]olcano",*,volcano.shp
  60. 50022 data "[215]orlds",*,worlds.shp
  61. 50026 data "[198]lowers",*,flowers.shp
  62. 50030 data "[200]ill [212]op",*,hilltop.pic
  63. 50034 data "[215]ine",*,wine.pic
  64. 50040 data "[204]ake",*,lake.shp
  65. 50060 rem title screen
  66. 50065 print"[147]":poke53281,1:poke53280,1
  67. 50072 print"         [176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
  68. 50082 print"         [221][204]oadstar [208]resents[221][152] "
  69. 50092 print"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  70. 50102 print"                             "
  71. 50112 print
  72. 50122 print"  [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  73. 50132 print"  [221]      [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][159]        [221][152] "
  74. 50142 print"  [159][221]      [221][200]arned's [193]rt [200]otel[221][154] [159]       [221][152] "
  75. 50152 print"  [159][221]      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154] [159]       [221][152] "
  76. 50162 print"  [159][221]        [154]                   [159]       [221][152] "
  77. 50172 print"  [159][221]                                  [221][152][160]"
  78. 50182 print"  [159][221]   [211]lide [211]how [208]resenter written   [221][152][160]"
  79. 50192 print"  [159][221]         by [193]lan [199]ardner          [221][152][160]"
  80. 50202 print"  [159][221]            ([195]) 1987              [221][152][160]"
  81. 50204 print"  [159][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152][160]"
  82. 50212 print"                                       "
  83. 50222 print
  84. 50232 print"     [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  85. 50242 print"     [221]  [193]ll pictures created by   [221][152] "
  86. 50252 print"     [221]        [215]alt [200]arned         [221][152] "
  87. 50272 print"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  88. 50282 print"                                    "
  89. 50292 :
  90. 50302 print"   [ Press any key to start the show[160]]";
  91. 50312 print"";
  92. 50314 poke198,0:wait198,1:poke198,0
  93. 50316 poke53281,5:return
  94. 59990 :
  95. 60000 :
  96. 60001 poke53281,1:poke53280,5
  97. 60005 print"[147][146]    [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  98. 60010 print"    [221][204]oadstar is proud to present:[221][152] "
  99. 60020 print"    [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  100. 60030 print"                                    "
  101. 60040 print
  102. 60050 print"  [150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  103. 60060 print"  [221]                                 [221][152] "
  104. 60070 print"  [150][221]  [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150]   [221][152] "
  105. 60080 print"  [150][221]  [154][221]                          [221] [150]  [221][152] "
  106. 60090 print"  [150][221]  [154][221]        created by        [221] [150]  [221][152] [146][160]"
  107. 60100 print"  [150][221]  [154][221]                          [221] [150]  [221][152] [146] [160]";
  108. 60110 print"  [150][221]  [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150]  [221][152] "
  109. 60120 print"  [150][221]                               [150]  [221][152] "
  110. 60130 print"  [150][221]                                 [221][152] "
  111. 60140 print"  [150][221]                                 [221][152] "
  112. 60150 print"  [150][221]  [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150]   [221][152] [146][160]"
  113. 60160 print"  [150][221]  [154][221] [195]oming soon to a computer[221] [150]  [221][152] [146][160]"
  114. 60170 print"  [150][221]  [154][221]        near you.         [221] [150]  [221][152] [146][160]"
  115. 60180 print"  [150][221]  [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150]  [221][152] [146][160]"
  116. 60190 print"  [150][221]                               [150]  [221][152] [146][160]"
  117. 60200 print"  [150][221]                                 [221][152] "
  118. 60210 print"  [150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  119. 60220 print"                                      "
  120. 60230 print
  121. 60240 print"         [ Press 'Q' to exit ]";
  122. 60250 print"";
  123. 60260 return
  124.